home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / handledata.avmsrc < prev    next >
Text File  |  1977-12-31  |  3KB  |  207 lines
  1. startrecord=true
  2. label=
  3. nodetype=7
  4. filename=avm:rexx/stdhead.avm
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=parse arg servername mailbox .
  12. line2=if symbol('mailbox') ~= 'VAR' | mailbox = '' then mailbox = 'manual'
  13. line3=
  14. line4=
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1='turnoffvoicemode'
  28. line2=
  29. line3=
  30. line4=
  31. line5=
  32. line6=
  33. line7=
  34. line8=
  35. line9=
  36. line10=
  37. nextactiontype=3
  38. nextactionaction=
  39. endrecord=true
  40. startrecord=true
  41. label=
  42. nodetype=6
  43. mode=0
  44. nextactiontype=3
  45. nextactionaction=
  46. endrecord=true
  47. startrecord=true
  48. label=
  49. nodetype=9
  50. baud=4
  51. bits=1
  52. parity=0
  53. stopbits=0
  54. handshaking=1
  55. erroractiontype=0
  56. erroractionaction=stderror
  57. nextactiontype=3
  58. nextactionaction=
  59. endrecord=true
  60. startrecord=true
  61. label=
  62. nodetype=11
  63. line1=ATA
  64. timeout=90
  65. swallowecho=0
  66. timedoutactiontype=0
  67. timedoutactionaction=answerdataabort
  68. abortactiontype=0
  69. abortactionaction=answerdataabort
  70. erroractiontype=0
  71. erroractionaction=stderror
  72. nextactiontype=3
  73. nextactionaction=
  74. endrecord=true
  75. startrecord=true
  76. label=
  77. nodetype=10
  78. timeout=90
  79. valueactiontype=3
  80. valueactionaction=
  81. timedoutactiontype=0
  82. timedoutactionaction=answerdataabort
  83. abortactiontype=0
  84. abortactionaction=answerdataabort
  85. erroractiontype=0
  86. erroractionaction=stderror
  87. nextactiontype=3
  88. nextactionaction=
  89. endrecord=true
  90. startrecord=true
  91. label=
  92. nodetype=8
  93. line1=if (left(value, 7) = 'CONNECT') then do
  94. line2=  call showDebugger('Connected in DATA mode.'); call time('r')
  95. line3=  address rexx 'startbbs' value
  96. line4=  call showLog('BBS done.', 1, trunc(time('e')))
  97. line5=end; else do
  98. line6=  call showDebugger('Failed to connect in DATA mode.')
  99. line7=  call showLog('BBS attempted.', 0, 0)
  100. line8=end
  101. line9=
  102. line10=
  103. nextactiontype=3
  104. nextactionaction=
  105. endrecord=true
  106. startrecord=true
  107. label=finished
  108. nodetype=8
  109. line1=do 5
  110. line2=
  111. line3=
  112. line4=
  113. line5=
  114. line6=
  115. line7=
  116. line8=
  117. line9=
  118. line10=
  119. nextactiontype=3
  120. nextactionaction=
  121. endrecord=true
  122. startrecord=true
  123. label=
  124. nodetype=10
  125. timeout=2
  126. valueactiontype=3
  127. valueactionaction=
  128. timedoutactiontype=0
  129. timedoutactionaction=answerabortreadall
  130. abortactiontype=0
  131. abortactionaction=stdabort
  132. erroractiontype=0
  133. erroractionaction=stderror
  134. nextactiontype=3
  135. nextactionaction=
  136. endrecord=true
  137. startrecord=true
  138. label=
  139. nodetype=8
  140. line1=end
  141. line2=
  142. line3=
  143. line4=
  144. line5=
  145. line6=
  146. line7=
  147. line8=
  148. line9=
  149. line10=
  150. nextactiontype=3
  151. nextactionaction=
  152. endrecord=true
  153. startrecord=true
  154. label=answerabortreadall
  155. nodetype=8
  156. line1=
  157. line2=
  158. line3=
  159. line4=
  160. line5=
  161. line6=
  162. line7=
  163. line8=
  164. line9=
  165. line10=
  166. nextactiontype=2
  167. nextactionaction=exit
  168. endrecord=true
  169. startrecord=true
  170. label=answerdataabort
  171. nodetype=11
  172. line1=A
  173. timeout=10
  174. swallowecho=1
  175. timedoutactiontype=0
  176. timedoutactionaction=stdtimedout
  177. abortactiontype=0
  178. abortactionaction=stdabort
  179. erroractiontype=0
  180. erroractionaction=stderror
  181. nextactiontype=0
  182. nextactionaction=finished
  183. endrecord=true
  184. startrecord=true
  185. label=showLog
  186. nodetype=8
  187. line1=procedure expose mailbox
  188. line2=parse arg mycomment, gotData, actualLength
  189. line3=handle = makeUniqueFile()
  190. line4=call initLogEntry()
  191. line5=log.comment = mycomment; log.length = actualLength
  192. line6=if gotData = 1 then log.type = 'BBS'; else log.type = 'BBS Tried'
  193. line7=log.origMailbox = mailbox
  194. line8=call saveLogEntry(mailbox, handle)
  195. line9=
  196. line10=
  197. nextactiontype=2
  198. nextactionaction=return
  199. endrecord=true
  200. startrecord=true
  201. label=
  202. nodetype=7
  203. filename=avm:rexx/simplestdtail.avm
  204. nextactiontype=3
  205. nextactionaction=
  206. endrecord=true
  207.